home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M401.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  2KB  |  150 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     Goto LABEL001
  30.     End
  31.     If (0 == 0) STRING001 = "NO"
  32.     If (0 == 1) STRING001 = "YES"
  33.  
  34.     EndFunc
  35.  
  36.     :LABEL001
  37.     STRING002 = String(PcbNode())
  38.     If (PcbNode() == 0) STRING002 = "A"
  39.     STRING004 = GetEnv(STRING002 + "RECNO")
  40.     STRING004 = ToInteger(STRING004)
  41.     STRING005 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  42.     Gosub LABEL003
  43.     :LABEL002
  44.     Gosub LABEL003
  45.     Cls
  46.     PrintLn 
  47.     PrintLn 
  48.     PrintLn "@X0FVirtual Reality Soldier - @X0ATalk to the BarKeep@X0F"
  49.     PrintLn STRING005
  50.     PrintLn 
  51.     If (ToInteger(STRING006) > 1) PrintLn "@X0A(@X0DB@X0A)@X02ribe                            "
  52.     PrintLn "@X0A(@X0DC@X0A)@X02ryo-Cube                        "
  53.     If (ToInteger(STRING006) > 1) PrintLn "@X0A(@X0DI@X0A)@X02nformation on other players     "
  54.     PrintLn "@X0A(@X0DN@X0A)@X02ame Change                      "
  55.     PrintLn "@X0A(@X0DQ@X0A)@X02uit to Top Level                "
  56.     PrintLn 
  57.     InputStr "@X0AYour Choice Soldier @X02> _", STRING007, 10, 1, "BCINQ", 0 + 8
  58.     Select Case (STRING007)
  59.         Case ""
  60.             Goto LABEL002
  61.         Case "Q"
  62.             Goto LABEL004
  63.         Case "B"
  64.             DCloseAll
  65.             Call PPEPath() + "VRS-M452.PPE"
  66.             Goto LABEL002
  67.         Case "C"
  68.             DCloseAll
  69.             Call PPEPath() + "VRS-M450.PPE"
  70.             Goto LABEL002
  71.         Case "I"
  72.             DCloseAll
  73.             Call PPEPath() + "VRS-M453.PPE"
  74.             Goto LABEL002
  75.         Case "N"
  76.             DCloseAll
  77.             Call PPEPath() + "VRS-M451.PPE"
  78.             Goto LABEL002
  79.     End Select
  80.     :LABEL003
  81.     DCloseAll
  82.     DOpen 0, PPEPath() + "USER.DBF", 0
  83.     DGo 0, STRING004
  84.     If (DGet(0, "VITALITY") <> "Y") Goto LABEL004
  85.     DGet 0, "LEVEL", STRING006
  86.     DGet 0, "VITALITY", STRING003
  87.     Return
  88.     :LABEL004
  89.     DCloseAll
  90.     End
  91.  
  92. ;------------------------------------------------------------------------------
  93. ;
  94. ; Usage report (before postprocessing)
  95. ;
  96. ; ■ Statements used :
  97. ;
  98. ;    2       End
  99. ;    1       Cls
  100. ;    19      Goto 
  101. ;    7       Let 
  102. ;    11      PrintLn 
  103. ;    12      If 
  104. ;    1       InputStr 
  105. ;    2       Gosub 
  106. ;    1       Return
  107. ;    4       Call 
  108. ;    1       EndFunc
  109. ;    1       DOpen 
  110. ;    6       DCloseAll
  111. ;    1       DGo 
  112. ;    2       DGet 
  113. ;
  114. ;
  115. ; ■ Functions used :
  116. ;
  117. ;    7       +
  118. ;    9       ==
  119. ;    1       <>
  120. ;    2       >
  121. ;    6       !
  122. ;    1       String()
  123. ;    5       PPEPath()
  124. ;    2       PcbNode()
  125. ;    1       GetEnv()
  126. ;    3       ToInteger()
  127. ;    1       DGet()
  128. ;
  129. ;------------------------------------------------------------------------------
  130. ;
  131. ; Analysis flags : C
  132. ;
  133. ; C - Call child PPE ■ 3
  134. ;     This is usually normal, but may be a tricky way to launch some
  135. ;     sysop-only commands.
  136. ;     ■ Search for : CALL
  137. ;
  138. ;------------------------------------------------------------------------------
  139. ;
  140. ; Postprocessing report
  141. ;
  142. ;    0       For/Next
  143. ;    0       While/EndWhile
  144. ;    0       If/Then or If/Then/Else
  145. ;    1       Select Case
  146. ;
  147. ;------------------------------------------------------------------------------
  148. ;                 AEGiS Corp - Break the routines, code against the machines!
  149. ;------------------------------------------------------------------------------
  150.